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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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7 FACILITY: DTS/DTR DECNET TEST PACKAGE 

; ABSTRACT: THIS MODULE CONTAINS Q10 AND TIMER AST ROUTINES FOR DTR. 
; ENVIRONMENT: DTR RUNS IN USER MODE AND REQUIRES NETWORK PRIVILEGE. 
3 AUTHOR: JAMES A. KRYCKA, CREATION DATE: 7=DEC-77 

; MODIFICATIONS: 
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: 
TSTSDTRAST = DTR AST ROUTINES SEP=1984 01:28:10 VAX/VMS Macro V04-00 P 
you.006 TSTSRECVAST_DTR = RECEIVE DATA MESSAGE A Bases $5 :353] § LOTSDIR. SRCIJDTRAST.MAR; 1 ~~ a) 
+} .SBITL TSTSRECVAST_DTR = RECEIVE DATA MESSAGE AST ROUTINE 
0000 66 SPSECT TSTSCODE NOWRT | 
6 R ; SYMBOL FOR DEBUGGING PURPOSES 
ae 
8 oy : FUNCTIONAL DESCRIPTION: 
00 72: NONE | 
$09 te : 
9000 i ; CALLING SEQUENCE: | 
o008 ds : CALL #5, TSTS$RECVAST_DTR (INVOKED BY VAX/VMS AS AN AST) | 
000 78 : INPUT PARAMETERS: 
0000 79: 
900 80 ; 4(AP) ADDRESS OF Q10 PARAMETER BLOCK | 
0000 B : IMPLICIT INPUTS: 
0000 83: 
0000 84: NONE 
0000 85: . 
0000 86 : OUTPUT PARAMETERS: 
0000 87: 
0000 88: NONE 
0000 89: 
0000 90 : IMPLICIT OUTPUTS: 
0000 «91: 
0000 32 : NONE 
0000 (93: 
0000 94 : COMPLETION CODES: 
0000 (95: 
0000 (96: NONE 
0000 (97: 
0000 98 : SIDE EFFECTS: 
0000 (99: 
0000 100: NONE 
0000 101: 
9000 108 a 
000 10 
003c 0000 104 .ENTRY TSTSRECVAST_DTR,“M<R2, R3, Ra R5> ; ENTRY POINT 
0002 105 CHECK_I10SB W*TST$GQ~RECVIOSB CHECK 1/0 STATUS CODE 
58 51 €9 OO0A 106 BLBC ~ R1,40 + BRANCH ON FAILURE 
0000°CF 06 000D 107 INCL W*TSTSGL_RECVDATA INCREMENT COUNTER 
oor) 108 SCASEB SELECTOREUTS900, TYPE, visht | 
: ae : 0. Act ION REQUIRED 
out 110 0$- ; SEQUENC 
O11 11] : 0$- : SEQUENCE A AND PATTERN CHECK | 
0000' CF 06 01D 118 INCL  W*TSTSGB_ M1 TBUE : UDPATE MESSAGE SEQUENCE NUMBER 
OO2'CF 3C 0021 114 MOVZWL W*TST$GQ~RECVIOSB+ 
000' CF 025 115 W*TSTSQBR_ XNTDATA*TSTS0B _BUFLEN;SET SIZE TO ECHO 
QO00'CF OE 0028. 116 INSQUE WeTSTSOBR-X MTDATA,- | 
0004 "DF 0 oe w*TST$OB~ ~QHEADS4 QUEUE xMT REQUEST 
1B O11 F 118 BRB : JOIN N COMMON COD | 
50 O000'CF 3 1 119 10$:  MOVZWL W*TSTSGW_SIZE,RO : GET MESSAGE coe 
0 04 g 6 120 SUBL2  #4,R : CALCULATE SIZE LESS SEQUENCE # 
0004'CF 50 121 CMPC3 RO, W*TSTSGB_XMITBUF+4,- : COMPARE EXPECTED PATTERN 
; | 
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TSTSDTRAST = DTR AST ROUTINES 16-SEP-1984 01:28:1 X/VMS Macro V04-00 Page 4 
you.p0G TSTSRECVAST_DTR = RECEIVE DATA MESSAGE A mit} 7 0: ‘38: 18 YOrSD DTR.SRCJDTRAST.MAR; 1 ¢ D 
0004 '¢F 3 3 W*TST$GB_RECVBUF +4 : AGAINST ACTUAL PATTERN 
6 12 0:3 BNEQ RECVAS ERROR : BRANCH ON PATTERN ERROR 
QO0O'CF ob 43 124 208:  CMPL w*TSTSGC_RECVDATA,- : COMPARE EXPECTED SEQUENCE # 
0000' CF 47 125 W*TST$GB-RECVBUF : AGAINST ACTUAL SEQUENCE 
e7 12 pee ! § 308 BNEQ RECVAST  ERROR1 ; BRANCH ON SEQUENCE ERROR 
QOOO'CF 3C O04C 128 MOVZWL weTST$Gu SIZE 
0000' CF 0050 129 TST$QBR -RCVBATA*TSTSOB _BUFLEN ;SAVE SIZE OF READ 
OO00'CF OE 909 130 INSQUE U-181S0BR- =RCVDAT 
0004" DF (0057131 aw*TST$QB~ GHEAD SA” QUEUE NEW READ 
005A 1 é SWAKE_S :WAKE USER LEVEL 
0065 1 CHECK’ S$ + CHECK STATUS CODE 
04 0068 134 408: RE : EXIT 
0069 135 RECVAST_ERROR2: : PATTERN CHECK ERROR 
0000" CF 01F 58043 8F p? 3083 138 “ROVE #DTS$_BADPAT, wrretee, STATUS 
0973 138 RECVAST ERROR? : : SEQUENCE CHECK ERROR 
0000" CF 01F5804B 8F DO 007 139 “MOVL #D0TS$_BADSEQNUM, W°TSTSGL_ =STATUS 
007C 140 RET = EXT 
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TSTSDTRAST = DTR AST ROUTINES 16-SEP-1984 AX/VMS Macro V04-00 Page 5 
v04-000 TSTSXMITAST_DTR = TRANSMIT DATA MESSAGE -SEP=-1984 t 80; 38: 18 DTSDTR.SRCIDTRAST.MAR; 1 . (4) 
07D 14 -SBTTL TSTSXMITAST_DTR - TRANGALT DATA MESSAGE AST ROUTINE 
0000007 128 -PSECT TSTSCODE NOWR 
7D = 144 
07D 145 34+ 
tA 138 3 FUNCTIONAL DESCRIPTION: 
007D 147; 
007D 148; NONE 
007D 149; 
tA 139 3; CALLING SEQUENCE: 
BR oe 13 & CALL #5, TSTSXMITAST_DTR (INVOKED BY VAX/VMS AS AN AST) 
iets 122 ; INPUT PARAMETERS: 
007D 155; 
bop 138 : 4 (AP) ADDRESS OF QI0 PARAMETER BLOCK 
007D 158 ; IMPLICIT INPUTS: 
007D 159; 
007D 160; NONE 
007D 161; 
007D 166 ; OUTPUT PARAMETERS: 
007D 163; 
007D 164; NONE 
007D 165; 
007D 166 ; IMPLICIT OUTPUTS: 
007D 167; 
007D 168 ; NONE 
007D 169; 
007D 170 ; COMPLETION CODES: 
007D 171; 
007D 7 3 NONE 
007D 173; 
007D 174 ; SIDE EFFECTS: 
07D 175; 
07D 176; NONE 
007D 177; 
007D 178 ;-- 
007D 179 
0004 007D # £180 ENTRY TSTSXMITAST_DTR,“M<R2> ; ENTRY POINT 
007F 181 CHECK_ a W*TST$GQ “xM1T10SB 3; CHECK 1/0 Mtr: CODE 
—E9 0087 186 BLBC ; BRANCH ON FAILURE 
0000' CF D6 OO8BA 18 pee UfSTSGL _XMITDATA : sMERCRENT COUNTER 
04 QOO8E 184 10$: RET : EXIT 
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TSTSDTRAST = DTR AST ROUTINES 16-SEP-1984 01:28:10 VAX/VMS Macro v04-00 Pa 
v04-000 TSTSMAILAST_DTR = READ MAILBOX AST ROUTI mii ety P 8333834 3 YOTsDIR. SRCJDTRAST.MAR;1 ” (8) 
O8F 1 .SBTTL TSTSMAILAST_DTR - REA MAILBOX AST ROUTINE 
“om: F i *PSECT TST$CODE 
189 ;++ 
00 F 190 ; FUNCTIONAL DESCRIPTION: 
ab8t 138 _ 
OO8F 194 ; CALLING SEQUENCE: 
O08 138 : CALL #5, TSTSMAILAST_DTR (INVOKED BY VAX/WMS AS AN AST) 
OO8F 198 : INPUT PARAMETERS: 
O08F 99 : 4(AP) ADDRESS OF Qi0 PARAMETER BLOCK 
008F 08 : IMPLICIT INPUTS: 
008F 03 ; 
ee ae ee 
OO8F 206 : OUTPUT PARAMETERS: 
OO8F 207 ; 
Ser 508 - 
O08F 10 : IMPLICIT OUTPUTS: 
OO8F 11; 
gu gig ton 
OO8F 214 : COMPLETION CODES: 
OO8F $12 ; 
SSE Ble 
008F $i : SIDE EFFECTS: 
008F 319 ; 
OO8F 20 ; NONE 
008F 221: 
Sh 88s 
OOFC O08F $i SENTRY TSTSMAILAST DTR, “M<R2,R3,R4,R5,R6,R7> ; ENTRY POINT 
FF6C’ 30 0091 25 BSBW = TSTSEXAM_MATL : EXAMINE THE MESSAGE 
35 36 8} 0094 6 CPM Re anscs INTMSG i] IS IT AN INTERRUPT MESSAGE? 
0000'CF 06 0099 8 INCL  W*TSTSGL“RECVINTE : WES, INCREMENT COUNTER 
9D 9 SCASEB SELECTORS =U TSTSGB. TYPE, DisPL 
9D 0 ; 0 Action REQUIRED 
009D 1 20$- ; SEQUEN CE CHECK 
909 : : 10$- : SEQUENCE A AND PATTERN CHECK 
"CF D6 O0A9 4 INCL  W*TST$GB_INTEBUF + UDPATE fe SSAGE SEQUENCE NUMBER 
0000'CF 67 9A OOAD 5 MOVZBL (R7) W*TSTSOBR _XMTINT+= 
Be 6 TST34B BUF ;SAVE SIZE OF INTERRUPT MESSAGE 
O0O'CF O& 008 INSQUE W'*TSTSOBR SATINT - 
"DF 086 8 gue TSTSQB- “QHEAD+4 “QUEUE UP INTERRUPT XMT REQUEST 
17. 11 «+008 BRB 0$ : JOIN COMMON CODE 
50 67 9A 00BB 240108:  ##MOVZBL (R7),RO : GET INTERRUPT MESSAGE SIZE 
4 c2 OBE 41 SUBL2 #4,R6 : CALCULATE SIZE LESS SEQUENCE P 
0006'CF 50 0c 42 CMPC3 ROW“ TSTSGB_INTEBUF+4,- ; COMPARE EXPECTED PATTERN 
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TSTSDTRAST = DTR AST ROUTINES =SEP :10 VAX/VMS Macro v04=00 Page 7 
your000 TSTSMAILAST_DTR = READ MAILBOX AST ROUTI Tense -SEP 71984 85 38: 18 LOTSDIR. SRCJDTRAST.MAR; 1 ” 6) 
0S A? C 43 5(R7) : AGAINST ACTUAL PATTERN 
465 12 00¢ 44 BNEQ MAILAST ERROR2 : BRANCH ON PATTERN ERROR 
0090" CF D1 OOCA 265 208:  CMPL TSTSGC_ RECVINTE,= : COMPARE EXPECTED SEQUENCE # 
1 A? C 4g : AGAINST ACTUAL SEQUENCE # 
12 OD 47 hs BNEQ MAILAST ERROR? + BRANCH ON SEQUENCE ERROR 
00000000'8F v0 00D 49 MOVL  #TSTS$K_MAILBUF 
0000° CF 0D 50 WrTSTSOBR -RCVMAIL #181808 _BUFLEN ;SET READ SIZE 
OO00'CF O& O0DB 251 INSQUE W*TSTSQBR-RCVMAIL 
0004 "DF ODF 38 Su" TSTSOBy ~OHEAD SS” “QUEUE MAILBOX READ 
00E2 25 SWAKE_S ;WAKE uSER LEVEL 
QOED 24 CHECK~SS : CHECK STATUS CODE 
04 OOFO 5 RE ; EXIT 
OOF 1 36 NOT_INTE_MSG: : 
OOF1 25 SCANCEL_S CHAN=W*TSTS$GW_ LINKCHAN’ ; CANCEL ALL PENDING LINK I/O REQUESTS 
OOFD 258 CHECK _ HECK STATUS CODE 
0000'CF 996 0100 259 INCB ~ W*TSTSGB_ASTFLAGS NOTE END OF TEST 
0104 260 SWAKE_S WAKE USER LEVEL 
O10F 261 CHECK~SS "CH ECK STATUS CODE 
04 011 6¢ RE + EXIT 
011 63 MAILAST -ERROR2: + PATTERN CHECK ERROR 
Q000'CF 01F58043 8F DO 011 64 OVL  #DTS$_BADPAT,wW*TSTS$GL_STATUS 
04 O11C 365 ; EXIT 
011D 266 MAILAST_ERROR1: > SEQUENCE CHECK ERROR 
0000°CF 01F58048 8F DO O11D 367 MOVL  #DTS$_BADSEQNUM,W*TSTSGL_ STATUS 
04 0126 268 R 7 EXIT 
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Page 
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~SBTTL TSTSINTEAST_DTR tt INTERRUPT MESSAGE AST ROUTINE 


(INVOKED BY VAX/VMS AS AN AST) 


: ENTRY POINT 


CHECK FOR REFUSAL DUE TO NO SOLICIT 
SKIP IF NOT THE CASE 


sREQUEUVE REQUEST 
TELL MAINLINE ABOUT IT 


; CHECK 1/0 STATUS CODE 
; BRANCH ON FAILURE 
: 1 pala COUNTER 


TSTSDTRAST = DTR AST ROUTINES 16-SEP-1984 
you2000 TSTSINTEAST_DTR = TRANSMIT INTERRUPT MES gree 19 4 
127 270 
0000 , 4 SPSECT TSTS$CODE 
127 ie p++ 
, fh ; FUNCTIONAL DESCRIPTION: 
, 2 : NONE 
i , 28 : CALLING SEQUENCE: 
, 0 ; CALL 4#5,TSTSINTEAST_DTR 
a , : : INPUT PARAMETERS: 
oi , 84 : 4(AP) ADDRESS OF Q10 PARAMETER BLOCK 
1 , 86 ; IMPLICIT INPUTS: 
2. 
4 , 30 : OUTPUT PARAMETERS: 
gsr ge 
91 , 294 : IMPLICIT OUTPUTS: 
a an 
a3 298 ; COMPLETION CODES: 
He 
O17 308 : SIDE EFFECTS: 
O17 304 : NONE 
0127 OS 3 
S157 «309 
0006 0127 308 .ENTRY TSTSINTEAST_DTR,“M<R2> 
0000'8F B81 0129 309 CMPW 3=s #SS$_NOSOLITIT,- 
00000000 ' EF “ O120 3 es IST$6Q_INTELOS 
OO0O'CF OF 0134 1 INSQUE W*TSTSQBR_XMTINT,- 
0004" DF 0138 1 aw*TST$QB-QHEAD+4 
1 14 SWAKE_S 
0146 «315 CHECK~SS 
04 Blea ip ss; TE! 
PN | ee CHECK_I0SB W*TST$GQ_INTEIOSB 
0451 €9 0132 19 BLBC ~ R1,10$ 
0000'CF D6 015 0 INCL W*TSTSGL_XMITINTE 
04 0159 1 10S: 
015A 2 END 


8 
(6) 


TSTSDTRAST 
Symbol table 


= 
= 
yn 
“ 
o 
> 
og 
mono 
om» 
o- 
§ 
vunn 
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' Psect synopsis ; 
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~~ 


PSECT name Allocation PSECT No. Attributes 


- ABS . S444 4 ( Se 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
S$ 444 ( -) O17 €¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
TSTSCODE QO00015A ( 346.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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! Performance indicators ! 


mew aa wm anenmoase eeeccmoee Sa 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00: 00 00-06 00:00:00.82 
Command processing 104 00:00:00.5 Ses Se 2. 
Pass 201 00:00:04.71 00:00:15.61 
Symbol table sort 0 Sb Shs 3 ae Er 
Pass 2 74 es ae 2 00:00:04.12 
Symbol table output 6 00:00:00.05 00:00:00.06 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 418 00:00:06.81 00:00:23.72 


The working set Limit was 1050 pages. 

20707 bytes (41 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 195 non-local and 12 local symbols. 
source lines were read in Pass 1, producing 28 object records in Pass 2. 

25 pages of virtual memory were used to define 21 macros. 


SK ORO BORNE Oe Boe Eee me mH 


-$255$DUA28: CDTSDTR.OBJIDTSDTR.MLB; 1 7 
$255$DUA28: (SYSLIBISTARLET.MLB;2 8 
TOTALS (all Libraries) 15 


307 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:DTRAST/OBJ=OBJ$:DTRAST MSRC$:DTPREF IX/UPDATE=(ENHS:DTPREF IX) *MSRC$:DTRAST/UPDATE=(ENH$:DTRAST) 
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